home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinXP Start Menu 1.xpl < prev    next >
Text File  |  2002-01-03  |  3KB  |  122 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows XP\Classic Start Menu"
  5. "NAME"="Visible Items"
  6. "VERSION"="2.01"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="000001"
  9. "TEXT 1"="Aha! You can't see this!"
  10. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  11. "DESCRIPTION 2"="NOTE: Hiding the Run option will not disable the WINDOWS+R key combination, so users will still be able to access the Run command."
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18. 'stupid Windows XP! Has two settings for each item. Either in Classic Logon or in New Mode! GNARF!
  19.  
  20.  sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  21. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
  22.  
  23. sV1=sP2 & "StartMenuFavorites"
  24. sV2=sP & "NoRecentDocsMenu"
  25. sV3=sP2 & "StartMenuRun" '<>!
  26. sV4=sP & "NoClose"
  27. sV5=sP & "NoFind"
  28. sV6=sP2 & "StartMenuLogoff" '<>!
  29. sV7=sP & "NoSMHelp"
  30. sV8=sP & "NoStartMenuEjectPC"
  31.  
  32. SUB Plugin_Initialize
  33.  Call SetUIElement(1,"Favorites")
  34.  Call ReadIt_2(1,sV1)
  35.  
  36.  Call SetUIElement(2,"Documents")
  37.  Call ReadIt(2,sV2)
  38.  
  39.  Call SetUIElement(3,"Run...")
  40.  Call ReadIt_2(3,sV3)
  41.  
  42.  Call SetUIElement(4,"Shut Down...")
  43.  Call ReadIt(4,sV4)
  44.  
  45.  Call SetUIElement(5,"Search") 
  46.  Call ReadIt(5,sV5)
  47.  
  48.  Call SetUIElement(6,"Log Off <username>...")
  49.  Call ReadIt_2(6,sV6)
  50.  
  51.  Call SetUIElement(7,"Help")
  52.  Call ReadIt(7,sV7)
  53.  
  54.  Call SetUIElement(8,"Undock PC")
  55.  Call ReadIt(8,sV8)
  56.  
  57. END SUB
  58.  
  59. 'Called when the Plugin should apply the changes
  60. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  61.  Call WriteIt_2(1,sV1)
  62.  Call WriteIt(2,sV2)
  63.  Call WriteIt_2(3,sV3)
  64.  Call WriteIt(4,sV4)
  65.  Call WriteIt(5,sV5)
  66.  Call WriteIt_2(6,sV6)
  67.  Call WriteIt(7,sV7)
  68.  Call WriteIt(8,sV8)
  69.  
  70.  Call IndicateSettingChange()
  71. END SUB
  72.  
  73. Sub ReadIt(ITM,PATH1)
  74.  if RegValueExists(PATH1)=false then 'setting available?
  75.     'no setting -> item visible
  76.     Call SetUIElementEx(ITM,true)
  77.  else
  78.     i=RegReadValue(PATH1)
  79.     if i=0 then 
  80.        Call SetUIElementEx(ITM,true)
  81.     end if
  82.  end if
  83. End Sub
  84.  
  85. Sub ReadIt_2(ITM,PATH1)
  86.  if RegValueExists(PATH1)=false then 'setting available?
  87.     'no setting -> item not visible
  88.     Call SetUIElementEx(ITM,false)
  89.  else
  90.     i=RegReadValue(PATH1)
  91.     if i=1 then 
  92.        Call SetUIElementEx(ITM,true)  
  93.     end if
  94.  end if
  95. End Sub
  96.  
  97.  
  98. Sub WriteIt(ITM,PATH1)
  99.  b=GetUIElementEx(ITM)
  100.  if b=true then
  101.  
  102.     s=RegReadValue(PATH1)
  103.     if IsEmpty(s)=false then
  104.        Call RegDeleteValue(PATH1)
  105.     end if
  106.  
  107.  else
  108.     Call RegWriteValue(PATH1,1,2)
  109.  end if
  110. End Sub
  111.  
  112. Sub WriteIt_2(ITM,PATH1)
  113.  b=GetUIElementEx(ITM)
  114.  if b=true then
  115.     Call RegWriteValue(PATH1,1,2)
  116.  else
  117.     Call RegWriteValue(PATH1,0,2)
  118.  end if
  119. End Sub
  120. SUB Plugin_Terminate
  121. END SUB
  122.